home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / ViewArc.rexx < prev    next >
OS/2 REXX Batch file  |  1994-02-15  |  782b  |  49 lines
  1. /* Simple archive viewing script */
  2.  
  3. options failat 10
  4.  
  5. signal on halt
  6. signal on ioerr
  7. signal on break_c
  8.  
  9. cmd = ""
  10.  
  11. cmd.arc = "arc v"
  12. cmd.zoo = "zoo v"
  13. cmd.lha = "lha v"
  14. cmd.zip = "unzip -v"
  15. cmd.arj = "unarj l"
  16.  
  17. ext = "ZOO LZH ARC ZIP ARJ"
  18.  
  19. parse upper arg infile
  20.  
  21. if ~open('in', infile, 'R') then do
  22.     say "Couldn't open '"||infile||"' for input"
  23.     exit 5
  24.     end
  25.  
  26. buff = readch('in', 8)
  27. call close('in')
  28.  
  29. select
  30.     when substr(buff, 3, 3) == '-lh' then type = lha
  31.     when left(buff, 4) == 'ZOO ' then type = zoo
  32.     when left(buff, 2) == 'PK' then type = zip
  33.     when left(buff, 2) == '60'x||'ea'x then type = arj
  34.     when left(buff, 1) == '1A'x then type = arc
  35.     otherwise do
  36.         say "Unknown archive type"
  37.         exit 5
  38.         end
  39.     end
  40.  
  41. address Command cmd.type infile
  42. exit RC
  43.  
  44. halt:
  45. ioerr:
  46. break_c:
  47. exit 10
  48.  
  49.